home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1987 April
/
64er_Magazin_87-04_1987_Markt__Technik_de.d64
/
fractale.bas 1.4
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
94 lines
10 rem fractals (basic-steuerpgm)
20 rem v1.4 vom 23.11.1986
30 rem fuer c64 und vc1541
40 rem geschrieben von
50 rem i. camphausen
60 :
70 :
80 :
100 if a=0 then print"[147]";tab(13);"bitte warten!"
110 if a=0 then poke55,0:poke 56,96:clr:a=1:load"fractale 9.0",8,1
120 if a=1 then a=2:load"menuezeile",8,1
130 if a=2 then a=3:load"biene/maus",8,1
140 :
400 rem
410 rem **************************
420 rem einsprungsadressen fuer mc
430 rem **************************
440 rem
500 ru=32799
510 r2=32823
520 befehl=35115
530 gin=32995
540 taste=35601
550 dir=35617
560 nlaenge=35887
570 dloa=35888
580 dsav=35901
590 gloa=35924
600 gsav=35937
610 :
620 a1(1)=dl:a1(2)=ds:a1(3)=gl:a1(4)=gs
630 a2(1)=ru:a2(2)=r2:a2(3)=gin:a2(4)=r2
640 for i=1 to 6:read ad(i):next i
650 data 24576,24608,24640,26656,26688,28736
660 for i=1 to 4:read ue$(i):next i
670 data " dload "," dsave "," gload "," gsave "
680 :
690 :
1000 rem
1010 rem *************
1020 rem hauptprogramm
1030 rem *************
1040 rem
1050 sys 32768
1060 :
1070 nr=peek(befehl)-2:if nr>0 then gosub 3000:goto 1070
1080 gosub 2000:goto 1070
1090 :
1100 :
2000 rem
2010 rem ************************
2020 rem up stuetzpunkte eingeben
2030 rem ************************
2040 rem
2050 print:print
2060 for i=1 to 6
2070 : h=0
2080 : print"hoehe"i"[157]. stuetzpunkt ";:input h
2090 : if abs(h)>30 then print"bitte beachten: -30 <= hoehe <= +30![146]":goto2080
2100 : if h<0 then h=256+h
2110 : poke ad(i),h
2120 next i
2130 sys ru
2140 return
2150 :
2160 :
3000 rem
3010 rem ******************
3020 rem up laden/speichern
3030 rem ******************
3040 rem
3050 print "[147][144]****************************************"
3060 print "";tab((40-len(ue$(nr)))/2);ue$(nr)
3070 n$="":input"filename ";n$
3080 if n$="" then sys r2:return
3090 if n$="$"then sys dir:gosub 4000:if fe=0 then sys taste:goto 3000
3100 if nr<3 then n$=chr$(4)+n$
3110 if nr>2 then n$=chr$(7)+n$
3120 poke nl,len(n$)
3130 for i=1 to len(n$):poke 703+i,asc(mid$(n$,i,1)):next i
3140 sys a1(nr):gosub 4000:if fe<>0 then 3000
3150 sys a2(nr)
3160 return
3170 :
3180 :
4000 rem
4010 rem ***********************
4020 rem up fehlerkanal abfragen
4030 rem ***********************
4040 rem
4050 open 1,8,15:input#1,fe,fe$,a,b:close 1
4060 print:print fe,fe$:if fe<>0 then sys taste
4070 return